MacFormat 1996 October/MacFormat CD Edition MF42 (October 1996).ISO/mac/MacFormat 42 Browser/SOURCES/oMain_Menu_2.k

Text File | 1996-08-07 | 4.0 KB | 236 lines | [TEXT/MPS ]

object oMain_Menu_2 is cDefaultContainer
with
    Binder is oBinder;
    Label is -1;
    Items is [
        oMain_Menu_pict_2_4,
        oQuit_2_8,
        oBack_Issues_2_5,
        oDemos_2_6,
        oFloppy_2_7,
        oReaders__Corner_2_9,
        oResources_2_10,
        oShareware_2_11
    ];
end;


object oMain_Menu_pict_2_4 is cPictureHandler
with
    Duration is -1;
    Supplier is oMain_Menu_pict_25_;
    Behavior is cVRBehavior
    has
    with
        Enabled is true; Shown is true;
        X is 0; Y is 0; Width is 640; Height is 480;
    end;
end;


object oQuit_2_8 is cPictureHandler
with
    Duration is -1;
    Supplier is oQuit_17_;
    Behavior is cVRBehavior
    has
        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseUp(theTarget, theX, theY)
            do
                oBinder.Quit();
            end;

    with
        Enabled is true; Shown is false;
        X is 579; Y is 438; Width is 54; Height is 39;
    end;
end;


object oBack_Issues_2_5 is cPictureHandler
with
    Duration is -1;
    Supplier is oBack_Issues_11_;
    Behavior is cVRBehavior
    has
        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseUp(theTarget, theX, theY)
            do
                oBinder.Goto(oBack_Issues_3);
                oBinder.Refresh();
                oBinder.SetTransition(oDissolve, 30);
            end;

    with
        Enabled is true; Shown is false;
        X is 91; Y is 63; Width is 160; Height is 59;
    end;
end;


object oDemos_2_6 is cPictureHandler
with
    Duration is -1;
    Supplier is oDemos_14_;
    Behavior is cVRBehavior
    has
        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseUp(theTarget, theX, theY)
            do
                oBinder.Goto(oDemos1_41);
                oBinder.Refresh();
                oBinder.SetTransition(oDissolve, 30);
            end;

    with
        Enabled is true; Shown is false;
        X is 363; Y is 64; Width is 128; Height is 60;
    end;
end;


object oFloppy_2_7 is cPictureHandler
with
    Duration is -1;
    Supplier is oFloppy_15_;
    Behavior is cVRBehavior
    has
        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseUp(theTarget, theX, theY)
            do
                oBinder.Goto(oFloppy_37);
            end;

    with
        Enabled is true; Shown is false;
        X is 127; Y is 253; Width is 128; Height is 63;
    end;
end;


object oReaders__Corner_2_9 is cPictureHandler
with
    Duration is -1;
    Supplier is oReaders__Corner_18_;
    Behavior is cVRBehavior
    has
        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseUp(theTarget, theX, theY)
            do
                oBinder.Goto(oReaders__Art_1_24);
                oBinder.Refresh();
                oBinder.SetTransition(oDissolve, 30);
            end;

    with
        Enabled is true; Shown is false;
        X is 359; Y is 254; Width is 200; Height is 64;
    end;
end;


object oResources_2_10 is cPictureHandler
with
    Duration is -1;
    Supplier is oResources_19_;
    Behavior is cVRBehavior
    has
        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseUp(theTarget, theX, theY)
            do
                oBinder.Goto(oResources_18);
                oBinder.Refresh();
                oBinder.SetTransition(oDissolve, 30);
            end;

    with
        Enabled is true; Shown is false;
        X is 71; Y is 153; Width is 156; Height is 70;
    end;
end;


object oShareware_2_11 is cPictureHandler
with
    Duration is -1;
    Supplier is oShareware_20_;
    Behavior is cVRBehavior
    has
        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseUp(theTarget, theX, theY)
            do
                oBinder.Goto(oShareware_38);
                oBinder.Refresh();
                oBinder.SetTransition(oDissolve, 30);
            end;

    with
        Enabled is true; Shown is false;
        X is 393; Y is 156; Width is 156; Height is 63;
    end;
end;